Set objArgs = WScript.Arguments  
VoiceText = ""
FileName ="Test"
if objArgs.count = 0 then
	 VoiceText = "Hello World"
Else
  if objArgs.count = 1 then
    VoiceText = objArgs(0)  
  else
    if objArgs.count = 2 then
	  VoiceText = objArgs(0)
	  FileName = objArgs(1)  
	End if
  End If
End IF 
Const SSFMCreateForWrite = 3

Set objVoice = CreateObject("SAPI.SpVoice")
Set objFile = CreateObject("SAPI.SpFileStream.1")
objFile.Open "G:/picture/wav/"+FileName+".wav", SSFMCreateForWrite
Set objVoice.AudioOutputStream = objFile
objVoice.Rate = -1 '�ٶ�:-10,10 0
objVoice.Volume = 100 '����:0,100 100
objVoice.AllowAudioOutputFormatChangesOnNextSet=false
objVoice.Speak VoiceText


objFile.Close
Set objVoice.AudioOutputStream = Nothing 
Set objVoice=Nothing